perm filename ET.F4[SCR,LCS] blob sn#195525 filedate 1976-01-06 generic text, type T, neo UTF8
00100		DIMENSION I(72)
00200	1	FORMAT(72A1)
00300	2	FORMAT(1X,72A1)
00400		CALL IFILE(1,'CW')
00500		READ(1,1)I
00600		IF(I(1).NE.'C')GO TO 4
00700		IF(I(2).NE.'O')GO TO 4
00800		IF(I(3).NE.'M')GO TO 4
00900		IF(I(4).NE.'M')GO TO 4
01000	3	READ(1,1)I
01100		IF(I(3).NE.';')GO TO 3
01200	5	READ(1,1,END=6)I
01300	4	TYPE 2,I
01400		GO TO 5
01500	6	END